home *** CD-ROM | disk | FTP | other *** search
/ Private Casting / Casting One.bin / Docs / Tienda.dir / 00036.ls < prev    next >
Encoding:
Text File  |  1998-02-21  |  374 b   |  14 lines
  1. on mouseUp
  2.   cursor(-1)
  3.   repeat with x = 5 to 16
  4.     puppetSprite(x, 0)
  5.   end repeat
  6.   updateStage()
  7.   go("rebajada")
  8.   set the fileName of window "shop" to the pathName & "shop\shop"
  9.   set the windowType of window "shop" to 2
  10.   set the modal of window "shop" to 1
  11.   set the rect of window "shop" to the rect of the stage + rect(70, 40, -70, -40)
  12.   open(window "shop")
  13. end
  14.